home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / lang / PPCsmalltalk.lha / PPCSmallTalk / prelude / test.p < prev    next >
Text File  |  1986-10-19  |  331b  |  16 lines
  1. temp <- <primitive 110 2 >
  2. <primitive 112 temp 1        " set: " \
  3.     #( #[ 33 96 245] \
  4.     #(  ) ) >
  5.  
  6. <primitive 112 temp 2        " printString " \
  7.     #( #[ 48 16 169 11 17 243 245] \
  8.     #( 'test value '  ) ) >
  9.  
  10. <primitive 98 #Test \
  11.     <primitive 97 #Test #Object #Smalltalk:prelude/test.st \
  12.     #(  #var ) \
  13.     #( #set: #printString  ) \
  14.     temp 2 3 > >
  15.  
  16.